home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
c
/
stdlib1.exe
/
lha
/
COPYSET.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-07-21
|
863b
|
59 lines
stdlib segment para public 'slcode'
assume cs:stdlib
;
;
; CopySet- Copies one set to another.
;
; inputs:
;
; ES:DI- Points at the destination set (at its mask byte).
; DX:SI- Points at the mask byte of the source set.
;
;
;
public sl_CopySet
;
sl_CopySet proc far
push ds
push es
push ax
push cx
push dx
push si
push di
mov ds, dx
;
mov ah, es:[di] ;Get mask bytes
mov al, [si]
mov dl, ah
not dl
add si, 8 ;Skip to start of set
add di, 8
mov cx, 256
CpySetLp: test al, [si]
jnz SetBit
and es:[di], dl
inc si
inc di
loop CpySetLp
jmp CpySetDone
;
SetBit: or es:[di], ah
inc si
inc di
loop CpySetLp
;
CpySetDone: pop di
pop si
pop dx
pop cx
pop ax
pop es
pop ds
ret
sl_CopySet endp
;
;
stdlib ends
end